;$Id: junge_r.pro 4 2009-07-01 08:10:55Z dingyy.pku $
FUNCTION Junge_r, C, niu, r 
        result=0.4343d*Double(C)*Double(r)^(-Double(niu)-1); 
        Return, result; 
END

